Program test;
var
	a : integer;

procedure f(var gggg, uuuuu : integer);
var b : integer;
begin
	b:=7;
end;

procedure g;
var c: integer;
begin
	c:=7;
end;

procedure m;
var n: integer;
begin
	n:=7;
end;

Begin
	a:=3;
End.
